home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aap.d64
/
proc.ramall
< prev
next >
Wrap
Text File
|
2007-02-28
|
515b
|
22 lines
0010 // BY ─ICK ╦LINGENS
0020 ╨╥╧├ RAMALL ├╠╧╙┼─
0030 ╒╙┼ SYSTEM
0040 LIBPT:=$C7EF
0050 LIBLO:=$C7F0
0060 LIBHI:=$C7FA
0070 LIBPAG:=$C804
0080 MASK:=%00010000 ┬╔╘╪╧╥ 255
0090 NUMBER:=╨┼┼╦(LIBPT)
0100 ╞╧╥ I#:=1 ╘╧ NUMBER ─╧
0110 LO:=╨┼┼╦(LIBLO+I#-1)
0120 HI:=╨┼┼╦(LIBHI+I#-1)
0130 PAG:=╨┼┼╦(LIBPAG+I#-1)
0140 SETPAGE(PAG)
0150 ╔╞ PAG<$80 ╘╚┼╬ ROM(LO+256*HI)
0160 ┼╬─╞╧╥ I#
0170 //
0180 ╨╥╧├ ROM(X)
0190 ╨╧╦┼ X,╨┼┼╦(X) ┬╔╘┴╬─ MASK
0200 ┼╬─╨╥╧├ ROM
0210 ┼╬─╨╥╧├ RAMALL